home *** CD-ROM | disk | FTP | other *** search
- /*
- *** WaterBall
- ***
- *** DKB World Definition Script
- *** 11-24-89 Kevin Price
- *** Contact: AmAz! BBS (602) 843-6574
- */
-
- /*#include "BasicShapes.data"*/
- #include "shapes.inc"
- #include "colors.inc"
-
- camera {
- location <0.0 25.0 -150.0>
- direction <0.0 0.1 1.0>
- up <0.0 1.0 0.0>
- right <1.3333 0.0 0.0>
- }
-
-
- object {
- sphere { <0.0 50.0 0.0> 50.0 }
-
-
- texture {
- colour red 0.0 green 0.2 blue 0.5
- // 0.05
- ripples 1.0
- scale <10.0 10.0 10.0>
- ambient 0.1
- diffuse 0.1
- ior 1.5
- reflection 0.5
- refraction 0.5
-
- }
-
- }
-
-
- /* Add the sky to the picture */
- object {
- plane { <0.0 1.0 0.0> 600.0 }
- texture {
- 0.05
- bozo
- turbulence 0.5
- colour_map {
- [0.0 0.5 colour red 0.5 green 0.6 blue 1.0
- colour red 0.5 green 0.6 blue 1.0]
- [0.5 0.6 colour red 0.5 green 0.6 blue 1.0
- colour red 1.0 green 1.0 blue 1.0]
- [0.6 1.001 colour red 1.0 green 1.0 blue 1.0
- colour red 0.5 green 0.5 blue 0.5]
- }
- scale <800.0 800.0 800.0>
- translate <200.0 400.0 100.0>
- diffuse 0.2
- ambient 0.8
-
- }
- }
-
- /* Define the desert floor */
- object {
- plane { <0.0 1.0 0.0> -2.0 }
-
- texture {
- 0.05 /* This value dithers the colours */
- ripples 1.0
- frequency 2000.0
- scale <50000.0 50000.0 50000.0>
- colour red 0.2 green 1.0 blue 0.4
- ambient 0.1
- diffuse 0.3
- }
- }
-
- /* Put up a distant wall to prevent a black line in the middle of the
- screen */
- object {
- plane { <0.0 0.0 1.0> 1000000.0 }
-
- texture {
- colour red 0.4 green 0.4 blue 0.8
- ambient 1.0
- diffuse 0.0
- }
- }
-
- object {
- light_source { <60.0 50.0 -110.0>
- colour White }
-
- texture {
- ambient 1.0
- diffuse 0.0
- }
- }
-